﻿Public Class CTinhTrangSachDTO

    Private m_iMa As Integer
    Public Property Ma() As Integer
        Get
            Return m_iMa
        End Get
        Set(ByVal value As Integer)
            m_iMa = value
        End Set
    End Property


    Private m_sTen As String
    Public Property Ten() As String
        Get
            Return m_sTen
        End Get
        Set(ByVal value As String)
            m_sTen = value
        End Set
    End Property


    Public Sub New()

    End Sub

    Public Sub New(ByVal _reader As IDataReader)
        Me.m_iMa = _reader("Ma")
        Me.m_sTen = _reader("Ten")
    End Sub


End Class
